				S2TEST


Michael Lloyd (http://www.hsu.edu/faculty/lloydm/ti/prgmtabl.html)
Henderson State University

HISTORY
1.0  May 2001
1.1  August 2015 - Updated to .8xp file.

DESCRIPTION
This program does a hypothesis test on a variance. This statistical test 
is not built into the TI-83.

PROGRAM LISTING
Disp "INPUT: STATS"
Input "\sigma\x\^2\=",T
Input "Sx\^2\=",S
Input "n=",N
ClrHome
Disp "S\^2\ TEST","SIGMA\^2\","",""
Menu("SIGMA\^2\:","\!=\SIGMA0\^2\",A,"<SIGMA0\^2\",B,">SIGMA0\^2\",C,"QUIT",Q)
Lbl A
2\->\Z
Output(2,7,"\!=\")
Goto D:Lbl B
1\->\Z
Output(2,7,"<")
Goto D:Lbl C
1\->\Z
Output(2,7,">")
Lbl D
Output(2,8,S)
Output(3,1,"X\^2\=")
N-1\->\K:KS/T\->\F
Output(3,4,F)
Output(4,1,"P=")
\chi\\^2\cdf(0,F,K)\->\P
If S>T:1-P\->\P
ZP\->\P
Output(4,3,P)


